home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / HypertalkTools.cpt / Resource Copier / card_6181.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  85 lines
  1. -- card: 6181 from stack: in
  2. -- bmap block id: 6624
  3. -- flags: 0000
  4. -- background id: 2808
  5. -- name: About
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8004
  11. -- rect: left=345 top=126 right=153 bottom=463
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Resource Copier
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go stack "resource copier"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: 8004
  30. -- rect: left=342 top=181 right=231 bottom=469
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: ResCopy Mover
  39. ----- HyperTalk script -----
  40. on mouseUp  --DO NOT CHANGE LINE 2! IT IS MODIFIED BY ANOTHER SCRIPT!
  41.   put "432 Utility Stacks:Copyright¬©1987 EDUCOMP:Resource Copier" into sourceStack
  42.   put the long name of this stack into destStack
  43.   delete first word of destStack
  44.   delete first character of destStack
  45.   delete last character of destStack
  46.   if sourceStack<>destStack then
  47.     set lockscreen to true
  48.     set lockmessages to true
  49.     push this card
  50.     go stack sourceStack
  51.     ResCopy sourceStack,destStack,"XCMD","ResCopy"
  52.     get the result
  53.     -- here is where you would copy more resources.
  54.     pop card
  55.     choose button tool
  56.     click at location of card button "ResCopy Mover"
  57.     domenu clear button
  58.     choose browse tool
  59.     set lockmessages to false
  60.     set lockscreen to false
  61.     if first char of it is "E" then
  62.       -- you could put better error handling here
  63.       put it into the message box
  64.     end if
  65.   end if
  66. end mouseUp
  67.  
  68.  
  69.  
  70.  
  71. -- part contents for background part 5
  72. ----- text -----
  73.      This is an example "About..." card, where information about a stack and it's author might be shown. Somewhere on this card it's nice to have a button to paste onto the Home card, to get to the stack quickly.
  74.  
  75.  
  76. Paste this button into your home card:
  77.  
  78.  
  79. Paste this button into a stack that you
  80. want to copy the ResCopy XCMD into,
  81. then click on it from that stack.
  82.  
  83. -- part contents for background part 7
  84. ----- text -----
  85. 16